3.4.68 \(\int \frac {x (d+e x^2)^{3/2}}{a+b x^2+c x^4} \, dx\) [368]
Optimal. Leaf size=327 \[ \frac {e \sqrt {d+e x^2}}{c}-\frac {\left (2 c^2 d^2+b \left (b-\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d-\sqrt {b^2-4 a c} d+a e\right )\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-\left (b-\sqrt {b^2-4 a c}\right ) e}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-\left (b-\sqrt {b^2-4 a c}\right ) e}}+\frac {\left (2 c^2 d^2+b \left (b+\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d+\sqrt {b^2-4 a c} d+a e\right )\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-\left (b+\sqrt {b^2-4 a c}\right ) e}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-\left (b+\sqrt {b^2-4 a c}\right ) e}} \]
[Out]
e*(e*x^2+d)^(1/2)/c-1/2*arctanh(2^(1/2)*c^(1/2)*(e*x^2+d)^(1/2)/(2*c*d-e*(b-(-4*a*c+b^2)^(1/2)))^(1/2))*(2*c^2
*d^2+b*e^2*(b-(-4*a*c+b^2)^(1/2))-2*c*e*(b*d+a*e-d*(-4*a*c+b^2)^(1/2)))/c^(3/2)*2^(1/2)/(-4*a*c+b^2)^(1/2)/(2*
c*d-e*(b-(-4*a*c+b^2)^(1/2)))^(1/2)+1/2*arctanh(2^(1/2)*c^(1/2)*(e*x^2+d)^(1/2)/(2*c*d-e*(b+(-4*a*c+b^2)^(1/2)
))^(1/2))*(2*c^2*d^2+b*e^2*(b+(-4*a*c+b^2)^(1/2))-2*c*e*(b*d+a*e+d*(-4*a*c+b^2)^(1/2)))/c^(3/2)*2^(1/2)/(-4*a*
c+b^2)^(1/2)/(2*c*d-e*(b+(-4*a*c+b^2)^(1/2)))^(1/2)
________________________________________________________________________________________
Rubi [A]
time = 0.96, antiderivative size = 327, normalized size of antiderivative = 1.00, number of steps
used = 6, number of rules used = 5, integrand size = 27, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.185, Rules used = {1261, 717, 840,
1180, 214} \begin {gather*} -\frac {\left (-2 c e \left (-d \sqrt {b^2-4 a c}+a e+b d\right )+b e^2 \left (b-\sqrt {b^2-4 a c}\right )+2 c^2 d^2\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-e \left (b-\sqrt {b^2-4 a c}\right )}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-e \left (b-\sqrt {b^2-4 a c}\right )}}+\frac {\left (-2 c e \left (d \sqrt {b^2-4 a c}+a e+b d\right )+b e^2 \left (\sqrt {b^2-4 a c}+b\right )+2 c^2 d^2\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-e \left (\sqrt {b^2-4 a c}+b\right )}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-e \left (\sqrt {b^2-4 a c}+b\right )}}+\frac {e \sqrt {d+e x^2}}{c} \end {gather*}
Antiderivative was successfully verified.
[In]
Int[(x*(d + e*x^2)^(3/2))/(a + b*x^2 + c*x^4),x]
[Out]
(e*Sqrt[d + e*x^2])/c - ((2*c^2*d^2 + b*(b - Sqrt[b^2 - 4*a*c])*e^2 - 2*c*e*(b*d - Sqrt[b^2 - 4*a*c]*d + a*e))
*ArcTanh[(Sqrt[2]*Sqrt[c]*Sqrt[d + e*x^2])/Sqrt[2*c*d - (b - Sqrt[b^2 - 4*a*c])*e]])/(Sqrt[2]*c^(3/2)*Sqrt[b^2
- 4*a*c]*Sqrt[2*c*d - (b - Sqrt[b^2 - 4*a*c])*e]) + ((2*c^2*d^2 + b*(b + Sqrt[b^2 - 4*a*c])*e^2 - 2*c*e*(b*d
+ Sqrt[b^2 - 4*a*c]*d + a*e))*ArcTanh[(Sqrt[2]*Sqrt[c]*Sqrt[d + e*x^2])/Sqrt[2*c*d - (b + Sqrt[b^2 - 4*a*c])*e
]])/(Sqrt[2]*c^(3/2)*Sqrt[b^2 - 4*a*c]*Sqrt[2*c*d - (b + Sqrt[b^2 - 4*a*c])*e])
Rule 214
Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[-a/b, 2]/a)*ArcTanh[x/Rt[-a/b, 2]], x] /; FreeQ[{a, b},
x] && NegQ[a/b]
Rule 717
Int[((d_.) + (e_.)*(x_))^(m_)/((a_.) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> Simp[e*((d + e*x)^(m - 1)/(c*(
m - 1))), x] + Dist[1/c, Int[(d + e*x)^(m - 2)*(Simp[c*d^2 - a*e^2 + e*(2*c*d - b*e)*x, x]/(a + b*x + c*x^2)),
x], x] /; FreeQ[{a, b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - b*d*e + a*e^2, 0] && NeQ[2*c*d - b*
e, 0] && GtQ[m, 1]
Rule 840
Int[((f_.) + (g_.)*(x_))/(Sqrt[(d_.) + (e_.)*(x_)]*((a_.) + (b_.)*(x_) + (c_.)*(x_)^2)), x_Symbol] :> Dist[2,
Subst[Int[(e*f - d*g + g*x^2)/(c*d^2 - b*d*e + a*e^2 - (2*c*d - b*e)*x^2 + c*x^4), x], x, Sqrt[d + e*x]], x] /
; FreeQ[{a, b, c, d, e, f, g}, x] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - b*d*e + a*e^2, 0]
Rule 1180
Int[((d_) + (e_.)*(x_)^2)/((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4), x_Symbol] :> With[{q = Rt[b^2 - 4*a*c, 2]}, Di
st[e/2 + (2*c*d - b*e)/(2*q), Int[1/(b/2 - q/2 + c*x^2), x], x] + Dist[e/2 - (2*c*d - b*e)/(2*q), Int[1/(b/2 +
q/2 + c*x^2), x], x]] /; FreeQ[{a, b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - a*e^2, 0] && PosQ[b^
2 - 4*a*c]
Rule 1261
Int[(x_)*((d_) + (e_.)*(x_)^2)^(q_.)*((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4)^(p_.), x_Symbol] :> Dist[1/2, Subst[
Int[(d + e*x)^q*(a + b*x + c*x^2)^p, x], x, x^2], x] /; FreeQ[{a, b, c, d, e, p, q}, x]
Rubi steps
\begin {align*} \int \frac {x \left (d+e x^2\right )^{3/2}}{a+b x^2+c x^4} \, dx &=\frac {1}{2} \text {Subst}\left (\int \frac {(d+e x)^{3/2}}{a+b x+c x^2} \, dx,x,x^2\right )\\ &=\frac {e \sqrt {d+e x^2}}{c}+\frac {\text {Subst}\left (\int \frac {c d^2-a e^2+e (2 c d-b e) x}{\sqrt {d+e x} \left (a+b x+c x^2\right )} \, dx,x,x^2\right )}{2 c}\\ &=\frac {e \sqrt {d+e x^2}}{c}+\frac {\text {Subst}\left (\int \frac {-d e (2 c d-b e)+e \left (c d^2-a e^2\right )+e (2 c d-b e) x^2}{c d^2-b d e+a e^2+(-2 c d+b e) x^2+c x^4} \, dx,x,\sqrt {d+e x^2}\right )}{c}\\ &=\frac {e \sqrt {d+e x^2}}{c}+\frac {\left (2 c^2 d^2+b \left (b-\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d-\sqrt {b^2-4 a c} d+a e\right )\right ) \text {Subst}\left (\int \frac {1}{-\frac {1}{2} \sqrt {b^2-4 a c} e+\frac {1}{2} (-2 c d+b e)+c x^2} \, dx,x,\sqrt {d+e x^2}\right )}{2 c \sqrt {b^2-4 a c}}-\frac {\left (2 c^2 d^2+b \left (b+\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d+\sqrt {b^2-4 a c} d+a e\right )\right ) \text {Subst}\left (\int \frac {1}{\frac {1}{2} \sqrt {b^2-4 a c} e+\frac {1}{2} (-2 c d+b e)+c x^2} \, dx,x,\sqrt {d+e x^2}\right )}{2 c \sqrt {b^2-4 a c}}\\ &=\frac {e \sqrt {d+e x^2}}{c}-\frac {\left (2 c^2 d^2+b \left (b-\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d-\sqrt {b^2-4 a c} d+a e\right )\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-\left (b-\sqrt {b^2-4 a c}\right ) e}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-\left (b-\sqrt {b^2-4 a c}\right ) e}}+\frac {\left (2 c^2 d^2+b \left (b+\sqrt {b^2-4 a c}\right ) e^2-2 c e \left (b d+\sqrt {b^2-4 a c} d+a e\right )\right ) \tanh ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {2 c d-\left (b+\sqrt {b^2-4 a c}\right ) e}}\right )}{\sqrt {2} c^{3/2} \sqrt {b^2-4 a c} \sqrt {2 c d-\left (b+\sqrt {b^2-4 a c}\right ) e}}\\ \end {align*}
________________________________________________________________________________________
Mathematica [C] Result contains complex when optimal does not.
time = 1.14, size = 373, normalized size = 1.14 \begin {gather*} \frac {2 \sqrt {c} e \sqrt {d+e x^2}+\frac {\left (-2 i c^2 d^2-b \left (i b+\sqrt {-b^2+4 a c}\right ) e^2+2 c e \left (i b d+\sqrt {-b^2+4 a c} d+i a e\right )\right ) \tan ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {-2 c d+b e-i \sqrt {-b^2+4 a c} e}}\right )}{\sqrt {-\frac {b^2}{2}+2 a c} \sqrt {-2 c d+\left (b-i \sqrt {-b^2+4 a c}\right ) e}}+\frac {\left (2 i c^2 d^2-b \left (-i b+\sqrt {-b^2+4 a c}\right ) e^2+2 c e \left (-i b d+\sqrt {-b^2+4 a c} d-i a e\right )\right ) \tan ^{-1}\left (\frac {\sqrt {2} \sqrt {c} \sqrt {d+e x^2}}{\sqrt {-2 c d+b e+i \sqrt {-b^2+4 a c} e}}\right )}{\sqrt {-\frac {b^2}{2}+2 a c} \sqrt {-2 c d+\left (b+i \sqrt {-b^2+4 a c}\right ) e}}}{2 c^{3/2}} \end {gather*}
Antiderivative was successfully verified.
[In]
Integrate[(x*(d + e*x^2)^(3/2))/(a + b*x^2 + c*x^4),x]
[Out]
(2*Sqrt[c]*e*Sqrt[d + e*x^2] + (((-2*I)*c^2*d^2 - b*(I*b + Sqrt[-b^2 + 4*a*c])*e^2 + 2*c*e*(I*b*d + Sqrt[-b^2
+ 4*a*c]*d + I*a*e))*ArcTan[(Sqrt[2]*Sqrt[c]*Sqrt[d + e*x^2])/Sqrt[-2*c*d + b*e - I*Sqrt[-b^2 + 4*a*c]*e]])/(S
qrt[-1/2*b^2 + 2*a*c]*Sqrt[-2*c*d + (b - I*Sqrt[-b^2 + 4*a*c])*e]) + (((2*I)*c^2*d^2 - b*((-I)*b + Sqrt[-b^2 +
4*a*c])*e^2 + 2*c*e*((-I)*b*d + Sqrt[-b^2 + 4*a*c]*d - I*a*e))*ArcTan[(Sqrt[2]*Sqrt[c]*Sqrt[d + e*x^2])/Sqrt[
-2*c*d + b*e + I*Sqrt[-b^2 + 4*a*c]*e]])/(Sqrt[-1/2*b^2 + 2*a*c]*Sqrt[-2*c*d + (b + I*Sqrt[-b^2 + 4*a*c])*e]))
/(2*c^(3/2))
________________________________________________________________________________________
Maple [C] Result contains higher order function than in optimal. Order 9 vs. order
3.
time = 0.15, size = 277, normalized size = 0.85
| | |
method |
result |
size |
| | |
risch |
\(\frac {e \sqrt {e \,x^{2}+d}}{c}-\frac {e \left (\munderset {\textit {\_R} =\RootOf \left (c \,\textit {\_Z}^{8}+\left (4 e b -4 c d \right ) \textit {\_Z}^{6}+\left (16 a \,e^{2}-8 d e b +6 c \,d^{2}\right ) \textit {\_Z}^{4}+\left (4 d^{2} e b -4 c \,d^{3}\right ) \textit {\_Z}^{2}+d^{4} c \right )}{\sum }\frac {\left (\left (e b -2 c d \right ) \textit {\_R}^{6}+\left (4 a \,e^{2}-3 d e b +2 c \,d^{2}\right ) \textit {\_R}^{4}+d \left (-4 a \,e^{2}+3 d e b -2 c \,d^{2}\right ) \textit {\_R}^{2}-d^{3} e b +2 d^{4} c \right ) \ln \left (\sqrt {e \,x^{2}+d}-\sqrt {e}\, x -\textit {\_R} \right )}{\textit {\_R}^{7} c +3 \textit {\_R}^{5} b e -3 \textit {\_R}^{5} c d +8 \textit {\_R}^{3} a \,e^{2}-4 \textit {\_R}^{3} b d e +3 \textit {\_R}^{3} c \,d^{2}+\textit {\_R} b \,d^{2} e -\textit {\_R} c \,d^{3}}\right )}{4 c}\) |
\(244\) |
default |
\(-\frac {e \left (-\frac {\sqrt {e \,x^{2}+d}-\sqrt {e}\, x}{c}+\frac {\munderset {\textit {\_R} =\RootOf \left (c \,\textit {\_Z}^{8}+\left (4 e b -4 c d \right ) \textit {\_Z}^{6}+\left (16 a \,e^{2}-8 d e b +6 c \,d^{2}\right ) \textit {\_Z}^{4}+\left (4 d^{2} e b -4 c \,d^{3}\right ) \textit {\_Z}^{2}+d^{4} c \right )}{\sum }\frac {\left (\left (e b -2 c d \right ) \textit {\_R}^{6}+\left (4 a \,e^{2}-3 d e b +2 c \,d^{2}\right ) \textit {\_R}^{4}+d \left (-4 a \,e^{2}+3 d e b -2 c \,d^{2}\right ) \textit {\_R}^{2}-d^{3} e b +2 d^{4} c \right ) \ln \left (\sqrt {e \,x^{2}+d}-\sqrt {e}\, x -\textit {\_R} \right )}{\textit {\_R}^{7} c +3 \textit {\_R}^{5} b e -3 \textit {\_R}^{5} c d +8 \textit {\_R}^{3} a \,e^{2}-4 \textit {\_R}^{3} b d e +3 \textit {\_R}^{3} c \,d^{2}+\textit {\_R} b \,d^{2} e -\textit {\_R} c \,d^{3}}}{2 c}-\frac {d}{c \left (\sqrt {e \,x^{2}+d}-\sqrt {e}\, x \right )}\right )}{2}\) |
\(277\) |
| | |
|
|
|
Verification of antiderivative is not currently implemented for this CAS.
[In]
int(x*(e*x^2+d)^(3/2)/(c*x^4+b*x^2+a),x,method=_RETURNVERBOSE)
[Out]
-1/2*e*(-1/c*((e*x^2+d)^(1/2)-e^(1/2)*x)+1/2/c*sum(((b*e-2*c*d)*_R^6+(4*a*e^2-3*b*d*e+2*c*d^2)*_R^4+d*(-4*a*e^
2+3*b*d*e-2*c*d^2)*_R^2-d^3*e*b+2*d^4*c)/(_R^7*c+3*_R^5*b*e-3*_R^5*c*d+8*_R^3*a*e^2-4*_R^3*b*d*e+3*_R^3*c*d^2+
_R*b*d^2*e-_R*c*d^3)*ln((e*x^2+d)^(1/2)-e^(1/2)*x-_R),_R=RootOf(c*_Z^8+(4*b*e-4*c*d)*_Z^6+(16*a*e^2-8*b*d*e+6*
c*d^2)*_Z^4+(4*b*d^2*e-4*c*d^3)*_Z^2+d^4*c))-1/c*d/((e*x^2+d)^(1/2)-e^(1/2)*x))
________________________________________________________________________________________
Maxima [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Failed to integrate} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(x*(e*x^2+d)^(3/2)/(c*x^4+b*x^2+a),x, algorithm="maxima")
[Out]
integrate((x^2*e + d)^(3/2)*x/(c*x^4 + b*x^2 + a), x)
________________________________________________________________________________________
Fricas [B] Leaf count of result is larger than twice the leaf count of optimal. 4378 vs.
\(2 (288) = 576\).
time = 68.19, size = 4378, normalized size = 13.39 \begin {gather*} \text {Too large to display} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(x*(e*x^2+d)^(3/2)/(c*x^4+b*x^2+a),x, algorithm="fricas")
[Out]
-1/4*(sqrt(1/2)*c*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c - 2*a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 + (b^2*c^3
- 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e
^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^2*c^3 - 4*a*c^4))*log(-(6*b*c^3*d^5*e + 2*sqrt(
1/2)*(3*(b^2*c^3 - 4*a*c^4)*d^3*e - 6*(b^3*c^2 - 4*a*b*c^3)*d^2*e^2 + (4*b^4*c - 17*a*b^2*c^2 + 4*a^2*c^3)*d*e
^3 - (b^5 - 5*a*b^3*c + 4*a^2*b*c^2)*e^4 + ((b^3*c^4 - 4*a*b*c^5)*d - (b^4*c^3 - 6*a*b^2*c^4 + 8*a^2*c^5)*e)*s
qrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2
*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))*sqrt(x^2*e + d)*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c - 2*
a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 + (b^2*c^3 - 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2
- 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^2*
c^3 - 4*a*c^4)) - (2*a^2*b^2 - 2*a^3*c - (a*b^3 - a^2*b*c)*x^2)*e^6 - ((b^4 + 2*a*b^2*c)*d*x^2 - 2*(2*a*b^3 +
a^2*b*c)*d)*e^5 + 2*((2*b^3*c + a*b*c^2)*d^2*x^2 - (b^4 + 6*a*b^2*c + 2*a^2*c^2)*d^2)*e^4 - 2*(3*b^2*c^2*d^3*x
^2 - 4*(b^3*c + 2*a*b*c^2)*d^3)*e^3 + 3*(b*c^3*d^4*x^2 - 2*(2*b^2*c^2 + a*c^3)*d^4)*e^2 + (2*(b^2*c^4 - 4*a*c^
5)*d^3 + (a*b^2*c^3 - 4*a^2*c^4)*x^2*e^3 - ((b^3*c^3 - 4*a*b*c^4)*d*x^2 - 2*(a*b^2*c^3 - 4*a^2*c^4)*d)*e^2 + (
(b^2*c^4 - 4*a*c^5)*d^2*x^2 - 2*(b^3*c^3 - 4*a*b*c^4)*d^2)*e)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^
2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/
x^2) - sqrt(1/2)*c*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c - 2*a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 + (b^2*c^
3 - 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*
e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^2*c^3 - 4*a*c^4))*log(-(6*b*c^3*d^5*e - 2*sqrt
(1/2)*(3*(b^2*c^3 - 4*a*c^4)*d^3*e - 6*(b^3*c^2 - 4*a*b*c^3)*d^2*e^2 + (4*b^4*c - 17*a*b^2*c^2 + 4*a^2*c^3)*d*
e^3 - (b^5 - 5*a*b^3*c + 4*a^2*b*c^2)*e^4 + ((b^3*c^4 - 4*a*b*c^5)*d - (b^4*c^3 - 6*a*b^2*c^4 + 8*a^2*c^5)*e)*
sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 -
2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))*sqrt(x^2*e + d)*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c - 2
*a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 + (b^2*c^3 - 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^
2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^2
*c^3 - 4*a*c^4)) - (2*a^2*b^2 - 2*a^3*c - (a*b^3 - a^2*b*c)*x^2)*e^6 - ((b^4 + 2*a*b^2*c)*d*x^2 - 2*(2*a*b^3 +
a^2*b*c)*d)*e^5 + 2*((2*b^3*c + a*b*c^2)*d^2*x^2 - (b^4 + 6*a*b^2*c + 2*a^2*c^2)*d^2)*e^4 - 2*(3*b^2*c^2*d^3*
x^2 - 4*(b^3*c + 2*a*b*c^2)*d^3)*e^3 + 3*(b*c^3*d^4*x^2 - 2*(2*b^2*c^2 + a*c^3)*d^4)*e^2 + (2*(b^2*c^4 - 4*a*c
^5)*d^3 + (a*b^2*c^3 - 4*a^2*c^4)*x^2*e^3 - ((b^3*c^3 - 4*a*b*c^4)*d*x^2 - 2*(a*b^2*c^3 - 4*a^2*c^4)*d)*e^2 +
((b^2*c^4 - 4*a*c^5)*d^2*x^2 - 2*(b^3*c^3 - 4*a*b*c^4)*d^2)*e)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b
^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))
/x^2) + sqrt(1/2)*c*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c - 2*a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 - (b^2*c
^3 - 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d
*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^2*c^3 - 4*a*c^4))*log(-(6*b*c^3*d^5*e + 2*sqr
t(1/2)*(3*(b^2*c^3 - 4*a*c^4)*d^3*e - 6*(b^3*c^2 - 4*a*b*c^3)*d^2*e^2 + (4*b^4*c - 17*a*b^2*c^2 + 4*a^2*c^3)*d
*e^3 - (b^5 - 5*a*b^3*c + 4*a^2*b*c^2)*e^4 - ((b^3*c^4 - 4*a*b*c^5)*d - (b^4*c^3 - 6*a*b^2*c^4 + 8*a^2*c^5)*e)
*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 -
2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))*sqrt(x^2*e + d)*sqrt((2*c^3*d^3 - 3*b*c^2*d^2*e + 3*(b^2*c -
2*a*c^2)*d*e^2 - (b^3 - 3*a*b*c)*e^3 - (b^2*c^3 - 4*a*c^4)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*b^2*c
^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7)))/(b^
2*c^3 - 4*a*c^4)) - (2*a^2*b^2 - 2*a^3*c - (a*b^3 - a^2*b*c)*x^2)*e^6 - ((b^4 + 2*a*b^2*c)*d*x^2 - 2*(2*a*b^3
+ a^2*b*c)*d)*e^5 + 2*((2*b^3*c + a*b*c^2)*d^2*x^2 - (b^4 + 6*a*b^2*c + 2*a^2*c^2)*d^2)*e^4 - 2*(3*b^2*c^2*d^3
*x^2 - 4*(b^3*c + 2*a*b*c^2)*d^3)*e^3 + 3*(b*c^3*d^4*x^2 - 2*(2*b^2*c^2 + a*c^3)*d^4)*e^2 - (2*(b^2*c^4 - 4*a*
c^5)*d^3 + (a*b^2*c^3 - 4*a^2*c^4)*x^2*e^3 - ((b^3*c^3 - 4*a*b*c^4)*d*x^2 - 2*(a*b^2*c^3 - 4*a^2*c^4)*d)*e^2 +
((b^2*c^4 - 4*a*c^5)*d^2*x^2 - 2*(b^3*c^3 - 4*a*b*c^4)*d^2)*e)*sqrt((9*c^4*d^4*e^2 - 18*b*c^3*d^3*e^3 + 3*(5*
b^2*c^2 - 2*a*c^3)*d^2*e^4 - 6*(b^3*c - a*b*c^2)*d*e^5 + (b^4 - 2*a*b^2*c + a^2*c^2)*e^6)/(b^2*c^6 - 4*a*c^7))
)/x^2) - sqrt(1/2)*c*sqrt((2*c^3*d^3 - 3*b*c^2*...
________________________________________________________________________________________
Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {x \left (d + e x^{2}\right )^{\frac {3}{2}}}{a + b x^{2} + c x^{4}}\, dx \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(x*(e*x**2+d)**(3/2)/(c*x**4+b*x**2+a),x)
[Out]
Integral(x*(d + e*x**2)**(3/2)/(a + b*x**2 + c*x**4), x)
________________________________________________________________________________________
Giac [B] Leaf count of result is larger than twice the leaf count of optimal. 649 vs.
\(2 (288) = 576\).
time = 7.19, size = 649, normalized size = 1.98 \begin {gather*} \frac {\sqrt {x^{2} e + d} e}{c} + \frac {{\left (4 \, c^{5} d^{3} - 6 \, b c^{4} d^{2} e - {\left (2 \, {\left (b^{2} c - 4 \, a c^{2}\right )} d e^{2} - {\left (b^{3} - 4 \, a b c\right )} e^{3}\right )} c^{2} + 4 \, {\left (b^{2} c^{3} - a c^{4}\right )} d e^{2} + 2 \, {\left (\sqrt {b^{2} - 4 \, a c} c^{3} d^{2} e - \sqrt {b^{2} - 4 \, a c} b c^{2} d e^{2} + \sqrt {b^{2} - 4 \, a c} a c^{2} e^{3}\right )} {\left | c \right |} - {\left (b^{3} c^{2} - 2 \, a b c^{3}\right )} e^{3}\right )} \arctan \left (\frac {2 \, \sqrt {\frac {1}{2}} \sqrt {x^{2} e + d}}{\sqrt {-\frac {2 \, c^{2} d - b c e + \sqrt {-4 \, {\left (c^{2} d^{2} - b c d e + a c e^{2}\right )} c^{2} + {\left (2 \, c^{2} d - b c e\right )}^{2}}}{c^{2}}}}\right )}{{\left (2 \, \sqrt {b^{2} - 4 \, a c} c^{2} d - {\left (b^{2} c - 4 \, a c^{2} + \sqrt {b^{2} - 4 \, a c} b c\right )} e\right )} \sqrt {-4 \, c^{2} d + 2 \, {\left (b c - \sqrt {b^{2} - 4 \, a c} c\right )} e} c^{2}} - \frac {{\left (4 \, c^{5} d^{3} - 6 \, b c^{4} d^{2} e - {\left (2 \, {\left (b^{2} c - 4 \, a c^{2}\right )} d e^{2} - {\left (b^{3} - 4 \, a b c\right )} e^{3}\right )} c^{2} + 4 \, {\left (b^{2} c^{3} - a c^{4}\right )} d e^{2} - 2 \, {\left (\sqrt {b^{2} - 4 \, a c} c^{3} d^{2} e - \sqrt {b^{2} - 4 \, a c} b c^{2} d e^{2} + \sqrt {b^{2} - 4 \, a c} a c^{2} e^{3}\right )} {\left | c \right |} - {\left (b^{3} c^{2} - 2 \, a b c^{3}\right )} e^{3}\right )} \arctan \left (\frac {2 \, \sqrt {\frac {1}{2}} \sqrt {x^{2} e + d}}{\sqrt {-\frac {2 \, c^{2} d - b c e - \sqrt {-4 \, {\left (c^{2} d^{2} - b c d e + a c e^{2}\right )} c^{2} + {\left (2 \, c^{2} d - b c e\right )}^{2}}}{c^{2}}}}\right )}{{\left (2 \, \sqrt {b^{2} - 4 \, a c} c^{2} d + {\left (b^{2} c - 4 \, a c^{2} - \sqrt {b^{2} - 4 \, a c} b c\right )} e\right )} \sqrt {-4 \, c^{2} d + 2 \, {\left (b c + \sqrt {b^{2} - 4 \, a c} c\right )} e} c^{2}} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(x*(e*x^2+d)^(3/2)/(c*x^4+b*x^2+a),x, algorithm="giac")
[Out]
sqrt(x^2*e + d)*e/c + (4*c^5*d^3 - 6*b*c^4*d^2*e - (2*(b^2*c - 4*a*c^2)*d*e^2 - (b^3 - 4*a*b*c)*e^3)*c^2 + 4*(
b^2*c^3 - a*c^4)*d*e^2 + 2*(sqrt(b^2 - 4*a*c)*c^3*d^2*e - sqrt(b^2 - 4*a*c)*b*c^2*d*e^2 + sqrt(b^2 - 4*a*c)*a*
c^2*e^3)*abs(c) - (b^3*c^2 - 2*a*b*c^3)*e^3)*arctan(2*sqrt(1/2)*sqrt(x^2*e + d)/sqrt(-(2*c^2*d - b*c*e + sqrt(
-4*(c^2*d^2 - b*c*d*e + a*c*e^2)*c^2 + (2*c^2*d - b*c*e)^2))/c^2))/((2*sqrt(b^2 - 4*a*c)*c^2*d - (b^2*c - 4*a*
c^2 + sqrt(b^2 - 4*a*c)*b*c)*e)*sqrt(-4*c^2*d + 2*(b*c - sqrt(b^2 - 4*a*c)*c)*e)*c^2) - (4*c^5*d^3 - 6*b*c^4*d
^2*e - (2*(b^2*c - 4*a*c^2)*d*e^2 - (b^3 - 4*a*b*c)*e^3)*c^2 + 4*(b^2*c^3 - a*c^4)*d*e^2 - 2*(sqrt(b^2 - 4*a*c
)*c^3*d^2*e - sqrt(b^2 - 4*a*c)*b*c^2*d*e^2 + sqrt(b^2 - 4*a*c)*a*c^2*e^3)*abs(c) - (b^3*c^2 - 2*a*b*c^3)*e^3)
*arctan(2*sqrt(1/2)*sqrt(x^2*e + d)/sqrt(-(2*c^2*d - b*c*e - sqrt(-4*(c^2*d^2 - b*c*d*e + a*c*e^2)*c^2 + (2*c^
2*d - b*c*e)^2))/c^2))/((2*sqrt(b^2 - 4*a*c)*c^2*d + (b^2*c - 4*a*c^2 - sqrt(b^2 - 4*a*c)*b*c)*e)*sqrt(-4*c^2*
d + 2*(b*c + sqrt(b^2 - 4*a*c)*c)*e)*c^2)
________________________________________________________________________________________
Mupad [B]
time = 4.13, size = 2500, normalized size = 7.65 \begin {gather*} \text {Too large to display} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
int((x*(d + e*x^2)^(3/2))/(a + b*x^2 + c*x^4),x)
[Out]
(e*(d + e*x^2)^(1/2))/c - atan(((((16*a^2*c^3*e^5 - 4*a*b^2*c^2*e^5 + 16*a*c^4*d^2*e^3 + 4*b^3*c^2*d*e^4 - 4*b
^2*c^3*d^2*e^3 - 16*a*b*c^3*d*e^4)/c - (2*(d + e*x^2)^(1/2)*(-(((4*b^5*e^3 + 32*a*c^4*d^3 - 8*b^2*c^3*d^3 + 48
*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e - 28*a*b^3*c*e^3 - 12*b^4*c*d*e^2 - 48*a*b*c^3*d^2*e + 72
*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 128*a*b^2*c^4)*(a^3*e^6 + c^3*d^6 - b^3*d^3*e^3 + 3*a*b^2*
d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*d^4*e^2 - 3*a^2*b*d*e^5 - 3*b*c^2*d^5*e - 6*a*b*c*d^3*e^
3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 - 4*b^2*c^3*d^3 + 24*a^2*b*c^2*e^3 - 48*a^2*c^3*d*e^2 + 6*b^3*c^2*d^2*e -
14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*b*c^3*d^2*e + 36*a*b^2*c^2*d*e^2)/(16*(16*a^2*c^5 + b^4*c^3 - 8*a*b^2*c
^4)))^(1/2)*(4*b^3*c^3*e^3 - 8*b^2*c^4*d*e^2 - 16*a*b*c^4*e^3 + 32*a*c^5*d*e^2))/c)*(-(((4*b^5*e^3 + 32*a*c^4*
d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e - 28*a*b^3*c*e^3 - 12*b^4*c*d*e^2
- 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 128*a*b^2*c^4)*(a^3*e^6 + c^3*d^6
- b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*d^4*e^2 - 3*a^2*b*d*e^5 - 3*b*c^
2*d^5*e - 6*a*b*c*d^3*e^3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 - 4*b^2*c^3*d^3 + 24*a^2*b*c^2*e^3 - 48*a^2*c^3*d
*e^2 + 6*b^3*c^2*d^2*e - 14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*b*c^3*d^2*e + 36*a*b^2*c^2*d*e^2)/(16*(16*a^2*c
^5 + b^4*c^3 - 8*a*b^2*c^4)))^(1/2) - (2*(d + e*x^2)^(1/2)*(b^4*e^6 + 2*a^2*c^2*e^6 + 2*c^4*d^4*e^2 - 12*a*c^3
*d^2*e^4 - 4*b*c^3*d^3*e^3 + 6*b^2*c^2*d^2*e^4 - 4*a*b^2*c*e^6 - 4*b^3*c*d*e^5 + 12*a*b*c^2*d*e^5))/c)*(-(((4*
b^5*e^3 + 32*a*c^4*d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e - 28*a*b^3*c*e
^3 - 12*b^4*c*d*e^2 - 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 128*a*b^2*c^4)*
(a^3*e^6 + c^3*d^6 - b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*d^4*e^2 - 3*a
^2*b*d*e^5 - 3*b*c^2*d^5*e - 6*a*b*c*d^3*e^3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 - 4*b^2*c^3*d^3 + 24*a^2*b*c^2
*e^3 - 48*a^2*c^3*d*e^2 + 6*b^3*c^2*d^2*e - 14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*b*c^3*d^2*e + 36*a*b^2*c^2*d
*e^2)/(16*(16*a^2*c^5 + b^4*c^3 - 8*a*b^2*c^4)))^(1/2)*1i - (((16*a^2*c^3*e^5 - 4*a*b^2*c^2*e^5 + 16*a*c^4*d^2
*e^3 + 4*b^3*c^2*d*e^4 - 4*b^2*c^3*d^2*e^3 - 16*a*b*c^3*d*e^4)/c + (2*(d + e*x^2)^(1/2)*(-(((4*b^5*e^3 + 32*a*
c^4*d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e - 28*a*b^3*c*e^3 - 12*b^4*c*d
*e^2 - 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 128*a*b^2*c^4)*(a^3*e^6 + c^3*
d^6 - b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*d^4*e^2 - 3*a^2*b*d*e^5 - 3*
b*c^2*d^5*e - 6*a*b*c*d^3*e^3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 - 4*b^2*c^3*d^3 + 24*a^2*b*c^2*e^3 - 48*a^2*c
^3*d*e^2 + 6*b^3*c^2*d^2*e - 14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*b*c^3*d^2*e + 36*a*b^2*c^2*d*e^2)/(16*(16*a
^2*c^5 + b^4*c^3 - 8*a*b^2*c^4)))^(1/2)*(4*b^3*c^3*e^3 - 8*b^2*c^4*d*e^2 - 16*a*b*c^4*e^3 + 32*a*c^5*d*e^2))/c
)*(-(((4*b^5*e^3 + 32*a*c^4*d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e - 28*
a*b^3*c*e^3 - 12*b^4*c*d*e^2 - 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 128*a*
b^2*c^4)*(a^3*e^6 + c^3*d^6 - b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*d^4*
e^2 - 3*a^2*b*d*e^5 - 3*b*c^2*d^5*e - 6*a*b*c*d^3*e^3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 - 4*b^2*c^3*d^3 + 24*
a^2*b*c^2*e^3 - 48*a^2*c^3*d*e^2 + 6*b^3*c^2*d^2*e - 14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*b*c^3*d^2*e + 36*a*
b^2*c^2*d*e^2)/(16*(16*a^2*c^5 + b^4*c^3 - 8*a*b^2*c^4)))^(1/2) + (2*(d + e*x^2)^(1/2)*(b^4*e^6 + 2*a^2*c^2*e^
6 + 2*c^4*d^4*e^2 - 12*a*c^3*d^2*e^4 - 4*b*c^3*d^3*e^3 + 6*b^2*c^2*d^2*e^4 - 4*a*b^2*c*e^6 - 4*b^3*c*d*e^5 + 1
2*a*b*c^2*d*e^5))/c)*(-(((4*b^5*e^3 + 32*a*c^4*d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*
b^3*c^2*d^2*e - 28*a*b^3*c*e^3 - 12*b^4*c*d*e^2 - 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 +
16*b^4*c^3 - 128*a*b^2*c^4)*(a^3*e^6 + c^3*d^6 - b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2
*e^4 + 3*b^2*c*d^4*e^2 - 3*a^2*b*d*e^5 - 3*b*c^2*d^5*e - 6*a*b*c*d^3*e^3))^(1/2) + 2*b^5*e^3 + 16*a*c^4*d^3 -
4*b^2*c^3*d^3 + 24*a^2*b*c^2*e^3 - 48*a^2*c^3*d*e^2 + 6*b^3*c^2*d^2*e - 14*a*b^3*c*e^3 - 6*b^4*c*d*e^2 - 24*a*
b*c^3*d^2*e + 36*a*b^2*c^2*d*e^2)/(16*(16*a^2*c^5 + b^4*c^3 - 8*a*b^2*c^4)))^(1/2)*1i)/((((16*a^2*c^3*e^5 - 4*
a*b^2*c^2*e^5 + 16*a*c^4*d^2*e^3 + 4*b^3*c^2*d*e^4 - 4*b^2*c^3*d^2*e^3 - 16*a*b*c^3*d*e^4)/c - (2*(d + e*x^2)^
(1/2)*(-(((4*b^5*e^3 + 32*a*c^4*d^3 - 8*b^2*c^3*d^3 + 48*a^2*b*c^2*e^3 - 96*a^2*c^3*d*e^2 + 12*b^3*c^2*d^2*e -
28*a*b^3*c*e^3 - 12*b^4*c*d*e^2 - 48*a*b*c^3*d^2*e + 72*a*b^2*c^2*d*e^2)^2/4 - (256*a^2*c^5 + 16*b^4*c^3 - 12
8*a*b^2*c^4)*(a^3*e^6 + c^3*d^6 - b^3*d^3*e^3 + 3*a*b^2*d^2*e^4 + 3*a*c^2*d^4*e^2 + 3*a^2*c*d^2*e^4 + 3*b^2*c*
d^4*e^2 - 3*a^2*b*d*e^5 - 3*b*c^2*d^5*e - 6*a*b...
________________________________________________________________________________________